Top 10k strings from Mental Arithmetic (1984)(Griffin Software)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
26 Q$(C)="What is "+
16 (B(C))+"?"
15 (B(C))+"."
5 c(C)=A(C)*B(C):
5 (A(C))+" and "+
4 c(C)=A(C)+B(C):
4 Q$(C)="Work out "+
4 Q$(C)="Find the sum of "+
4 ;"Press Y or N.":
4 (C(C))+"."
4 (B(C))+("0"
4 (A(C))+("0"
4 (A(C))+"?"
4 (A(C))+" x "+
4 (A(C))+" by "+
4 (A(C))+" + "+
3 c(C)=A(C)/B(C):
3 c(C)=A(C)-B(C):
3 Q$(C)="Subtract "+
3 Q$(C)="Multiply "+
3 Q$(C)="Add together "+
3 A(C)-B(C)<1
3 A(C)+B(C)>7
3 (A(C))+" to "+
3 (A(C))+" "+
2 Q$(C)="What is 1/"+
2 C(C)=(A(C)+B(C))*
2 B(C)/A(C)-
2 B(C)-A(C)<1
2 A(C)-B(C)<0
2 A(C)+B(C)>3
2 A$(C)=" p"
2 ;"Question ";C:
2 ;"Answer: ";A$(C)
2 ;" ":
2 (c(C)*10000
2 (B(C)/A(C))=0
2 (B(C))+"p?"
2 (B(C))+"."+
2 (B(C))+" x "+
2 (B(C))+" from "+
2 (B(C))+" equal to?"
2 (A(C))+"/"+
2 (A(C))+"."
2 (A(C))+", "+
2 (A(C))+" from "+
2 (A(C))+" divided by "+
2 (A(C))+" - "+
1 significant figures? What is 1/2 of 54? What is 2 to the power 4? Find the sum of 5.3 and
1 place? What is 4 squared? What is 3.6 - 3.1? Subtract 2.6 from 7.6. What is a half of 38? What is 2.067 to 3
1 place? What is 21
1 logo
1 j$="INDIVIDUAL VERSION"
1 imtest
1 file
1 d=D1+(L-l)
1 c(C)=B(C)/A(C):
1 c(C)=B(C)-A(C):
1 c(C)=A(C)^B(C):
1 c(C)=A(C)+B(C)+C(C):
1 c(C)=(B(C)*C(C))/(A(C)+B(C))
1 c(C)=(A(C)/100
1 c(C)=(A(C)*C(C))/(A(C)+B(C)):
1 ``add A,B;A+B<19``
1 ``END OF QUESTION ROUTINES``**************************
1 ``DIV A IN RATIO``
1 ``DECIMAL/10,100,1000``
1 ``B-A,B<20
1 ``B-A DECIMAL``
1 ``APPRX TO WHOLE N``
1 ``APPRX TO SIG.FIG``
1 ``APPRX TO DEC.PL.``
1 ``ADDING MONEY``
1 ``ADD DECIMAL``
1 ``A/B,NO REMAINDER``
1 ``A/B OF C``
1 ``A-B,With carry``
1 ``A+B With Carry``
1 ``A*B,B>10``
1 ``A*10,100,1000``
1 ``A TO A POWER``
1 ``A DECIMAL * 10,100,1000``
1 ``1/A OF B``
1 ``% OF MONEY '``
1 What is 9 x 24? What is 5.016 to 1 decimal
1 T$="third"
1 T$="quarter"
1 SUBROUTINE
1 SET UP OF ARRAY
1 SET TEST QUESTIONS
1 SET ARRAYS AND VARIABLES
1 Recording
1 Q$(C)="What is the sum of "+
1 Q$(C)="What is the change from"+
1 Q$(C)="What is the change from `1,"+
1 Q$(C)="Take "+
1 Q$(C)="How much is left of `"+
1 Q$(C)="How many times does "+
1 Q$(C)="Find the sum of `"+
1 Q$(C)="Find the product of "+
1 Q$(C)="Find "+
1 Q$(C)="Divide "+
1 Q$(C)="Add `"+
1 Q$(C)="Add "+
1 Q$(C)=" `"+
1 Q$(C)=" "+
1 M(R)=M(R)-1
1 J(C)=D(B(C)-P4-1
1 FINAL MARK AND TIME
1 END****************************************************
1 Display Instructions
1 DISPLAY QUESTIONS AND INPUT ANSWERS
1 Created with Ramsoft MakeTZX
1 C)="What is "+
1 C(C)=((A(C)+B(C))*
1 B(C)=B(C)/p
1 B(C)-A(C)>9
1 A(C)=A(C)/p:
1 A(C)+B(C)>99
1 A(C)+B(C)>29
1 A(C)+B(C)>19
1 A(C)+B(C)>10
1 A(C)+B(C)<29
1 A$(C)=" p"
1 ;S;" seconds to do the test.":
1 ;"tell you when it is READY."
1 ;"questions you got wrong? ":
1 ;"of these parameters?":
1 ;"moments. The computer will "
1 ;"and you took ";M2;" minutes and":
1 ;"Your answer: ";a$(c);
1 ;"UPPER CASE";
1 ;"UP THE TEST. "
1 ;"Type in file name in ";
1 ;"The Test Parameters are- "
1 ;"That completes the test.Do you wish to do another test?":
1 ;"TOPIC LEVEL ";L
1 ;"THE COMPUTER IS NOW MAKING "
1 ;"Stop and rewind tape"
1 ;"SAVE""file"" LINE 2"
1 ;"Please wait a moment.":
1 ;"PLEASE WAIT";
1 ;"NUMBER OF QUESTIONS ";N
1 ;"MENTAL ARITHMETIC TEST ":
1 ;"Load main program"
1 ;"Leave tape running"
1 ;"INSTRUCTIONS":
1 ;"Do you wish to see the "
1 ;"Do you wish to change any"
1 ;"Do you want instructions?":
1 ;"DEGREE OF DIFFICULTY ";D1
1 ;" will display the message:-"
1 ;" up the test which may take a"
1 ;" the test(10 to 20 questions)."
1 ;" the TOPIC LEVEL,the DEGREE of"
1 ;" question on the screen."
1 ;" key you can display each"
1 ;" few moments. After which it "
1 ;" The computer will then make"
1 ;" If you have not read the User":
1 ;" DIFFICULTY and the LENGTH of"
1 ;" You will be asked to select"
1 ;" Then by pressing the ENTER"
1 ;" The computer will wait while you type in your answer, fol- lowed by ENTER."''" At the end of the test the computer will display your mark and the time it took you to work through the test. Then, if you wish, it will display the questions that you got wrong, together with the correct answers."
1 ;" That will complete the test."
1 ;" LOADING PROGRAM
1 ;" This will take a few "
1 ;" Choose the topic level by pressing a number between 1 and 7.":
1 ;" Choose the number of questions by entering a number between 10 and 20.":
1 ;" Choose the degree of difficulty by pressing a number between 1 and 3.":
1 ;" "
1 ;" "
1 ; "Your mark was ";m;" out of ";n
1 9600000000000000000000000327300000000000000000000001325400000000000000000000011223420000000000000000001111221222200000000000000100112111112211121000000010010101111111111121111
1 7.1. Multiply 8 by 12. Work out 7 x `2.39. What is 2/3 of 54. What is 5/8 of 56. Subtract 82 from 142. What is 1000 times 4.83? Multiply 8.52 by 1000. Work out 6 x `1.19. What is 8.849 to 1 decimal
1 +"the nearest whole number?"
1 +"significant figure"+("s"
1 +"share?":
1 +"place"+("s"
1 +"if you spend "+
1 +"if I spend `"+
1 +" plus "+
1 +" What is the smaller part?"
1 +" How much is the smaller"+
1 ***QUESTION TYPE SUBROUTINES****
1 ********************************
1 **** str ****
1 **** nin ****
1 **** cls ****
1 **** cll ****
1 )="What is a "+T$+" of "+
1 )="9600000000000000000000000"
1 )="3273000000000000000000000"
1 )="0132540000000000000000000"
1 )="0011223420000000000000000"
1 )="0011112212222000000000000"
1 )="0010011211111221112100000"
1 )="0010010101111111111121111"
1 ))))+" to `"+
1 ))))+" if you spend `"+
1 ))))+" and"+
1 (l$(L,C))=0
1 (l$(L,C))*N/15
1 (a(c))+("0"
1 (C(C))+" is shared in the ratio"+
1 (C(C))+" is divided in the ratio"+
1 (C(C))+" equal"+
1 (B(C)/p)=0
1 (B(C)-P4)>1
1 (B(C))+"?":
1 (B(C))+" x `"+
1 (B(C))+" together."
1 (B(C))+" times `"+
1 (B(C))+" times "+
1 (B(C))+" of "+
1 (B(C))+" go"+
1 (B(C))+" decimal"+
1 (B(C))+" and "+
1 (B(C))+" - "+
1 (B(C))+" + "+
1 (B(C)) +" and "+
1 (A(C)/p)=0
1 (A(C)/B(C)+.5
1 (A(C))+"p"+
1 (A(C))+"p multiplied by "+
1 (A(C))+":"+
1 (A(C))+"% of `"+
1 (A(C))+" to"+
1 (A(C))+" to the power "+
1 (A(C))+" to the nearest "+
1 (A(C))+" times "+
1 (A(C))+" squared?"
1 (A(C))+" of "+
1 (A(C))+" minus "+
1 (A(C))+" equal to?"
1 (A(C))+" cubed?"
1 (A(C))+" and"+
1 ((c(c)+.0000001
1 ((A(C)/B(C))*C(C)+.01
1 ##CHANGE FROM `A##
1 ##A/10,100,1000##
1 "clear (y/n) ?";q$
1 "address ? ";x
1 "Filename",a$
1 " this program."
1 " should before proceeding with":
1 " package booklet, then you"
1 " Notes in the accompanying":
1 7?
1 Q
1 "
1 C
1 "
1 ` `